home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00128_Quit button.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  867 b   |  48 lines
  1. property pSpr, pOrigMember, pRollMember, pDownMember, pTimer, pSupressRoll
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMember = pSpr.member
  6.   pRollMember = nextMember(pOrigMember, 1)
  7.   pDownMember = nextMember(pOrigMember, 2)
  8.   setCursor(pSpr, pointingHand())
  9. end
  10.  
  11. on endSprite
  12.   setCursor(pSpr, defaultCursor())
  13. end
  14.  
  15. on mouseUp
  16.   quitGame()
  17. end
  18.  
  19. on mouseDown me
  20.   replaceDraggingAnything()
  21.   pSupressRoll = 1
  22.   pSpr.member = pDownMember
  23.   clickSound()
  24.   updateStage()
  25. end
  26.  
  27. on mouseEnter me
  28.   rememberActiveBottle()
  29.   pSpr.member = pRollMember
  30.   showToolTip(pSpr, #quitpause)
  31.   pTimer = nowTicks()
  32. end
  33.  
  34. on mouseLeave me
  35.   pSupressRoll = 0
  36.   restoreActiveBottle()
  37.   pSpr.member = pOrigMember
  38.   hideToolTip()
  39. end
  40.  
  41. on mouseWithin
  42.   if tipTickRange(pTimer) and not pSupressRoll then
  43.     forceToolTip(pSpr, #quitpause)
  44.   else
  45.     dismissToolTip()
  46.   end if
  47. end
  48.